home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_wof.lha / wof.lha / support.lha / Config < prev    next >
Text File  |  1997-04-17  |  32KB  |  399 lines
  1. /**************************************************************************\
  2.         $VER: Wheel of Fortune CONFIG, v6.51 (17-Apr-97) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  8.  
  9. call SETUP;call READCONFIG;signal SCREEN1
  10.  
  11. START:;pt=it.ed.it;if index(pt,"c6")>0 then pt=delstr(pt,pos("c6",pt),3)
  12.   if index(pt,"ce")>0 then pt=delstr(pt,pos("ce",pt),3)
  13.   se "z4cb"pt"z0c677H";gc;a=c2d(result);do 2;mg;b=result;end
  14.   if a=27 & b="NOCHAR" then signal SAVE;if a=13 then signal CONFIG
  15.   if b="A" then do;tr it.ed.it;it=it-1
  16.     if ed=1 & it=max-1 then it=max-2
  17.     if it<1 then it=max
  18.     signal START;end
  19.   if b="B" then do;tr it.ed.it;it=it+1
  20.     if ed=1 & it=max-2 then it=max-1
  21.     if it>max then it=1
  22.     signal START;end
  23.   if b="C" then do;tr it.ed.it;if index(zz.ed," "||it||" ")>0 then do
  24.     a=pos(right(it,2,"0")"-",zz.ed.1)+3;it=strip(substr(zz.ed.1,a,2),"l","0");end;end
  25.   if b="D" then do;tr it.ed.it;if index(zz.ed," "||it||" ")>0 then do
  26.     a=pos(right(it,2,"0")"-",zz.ed.2)+3;it=strip(substr(zz.ed.2,a,2),"l","0");end;end
  27.   if d2c(a)="V" & ed=1 then signal SCREEN2;if d2c(a)="V" & ed=2 then signal SCREEN1
  28.  signal START
  29.  
  30. CONFIG:;if ed=2 then signal LOADER;else a="CONFIG"||it;signal (a)
  31. CONFIG1:;addkeys (kasc1p);se "2Hz7c0i256 62}z0";gu 70;d=result
  32.   if d="" then do;d=kasc1p;se "2Hz7c0";send d;tr "z0";end;kasc1p=d;call MAKEKEY(d)
  33.   call COUNT(key);kasc1m=a;tr "5Hz7c0"right(kasc1m,2)"z0"
  34.   se "Hq1"center(key,76+a*3)"H"left(spa,76);save=1;signal START
  35. CONFIG2:;addkeys (kasc2p);se "2Hz7c0i256 62}z0";gu 70;d=result
  36.   if d="" then do;d=kasc2p;se "2Hz7c0";send d;tr "z0";end;kasc2p=d;call MAKEKEY(d)
  37.   call COUNT(key);kasc2m=a;tr "5Hz7c0"right(kasc2m,2)"z0"
  38.   se "Hq1"center(key,76+a*3)"H"left(spa,76);save=1;signal START
  39. CONFIG3:;addkeys (kans1p);se "2Hz7c0i256 62}z0";gu 70;d=result
  40.   if d="" then do;d=kans1p;se "2Hz7c0";send d;tr "z0";end;kans1p=d;call MAKEKEY(d)
  41.   call COUNT(key);kans1m=a;tr "5Hz7c0"right(kans1m,2)"z0"
  42.   se "Hq1"center(key,76+a*3)"H"left(spa,76);save=1;signal START
  43. CONFIG4:;addkeys (kans2p);se "2Hz7c0i256 62}z0";gu 70;d=result
  44.   if d="" then do;d=kans2p;se "2Hz7c0";send d;tr "z0";end;kans2p=d;call MAKEKEY(d)
  45.   call COUNT(key);kans2m=a;tr "5Hz7c0"right(kans2m,2)"z0"
  46.   se "Hq1"center(key,76+a*3)"H"left(spa,76);save=1;signal START
  47. CONFIG5:;addkeys (kibm1p);se "12Hz7c0i256 62}z0";gu 70;d=result
  48.   if d="" then do;d=kibm1p;se "12Hz7c0";send d;tr "z0";end;kibm1p=d;call MAKEKEY(d)
  49.   call COUNT(key);kibm1m=a;tr "75Hz7c0"right(kibm1m,2)"z0"
  50.   se "2Hq1"center(key,76+a*3)"2H"left(spa,76);save=1;signal START
  51. CONFIG6:;addkeys (kibm2p);se "12Hz7c0i256 62}z0";gu 70;d=result
  52.   if d="" then do;d=kibm2p;se "12Hz7c0";send d;tr "z0";end;kibm2p=d;call MAKEKEY(d)
  53.   call COUNT(key);kibm2m=a;tr "75Hz7c0"right(kibm2m,2)"z0"
  54.   se "2Hq1"center(key,76+a*3)"2H"left(spa,76);save=1;signal START
  55. CONFIG7:;addkeys (Sid.1);se "12Hz7c0i64 3}z0";gu 70;Sid.1=result;if Sid.1<1 then do;Sid.1="";Sok.1="";tr "12Hz7c0   :      z0";end;if Sid.1="" then do;save=1;signal START;end
  56.   addkeys (Sok.1);se "16Hz7c0i16 6}z0";gu 70;Sok.1=result;if Sok.1<960525|Sok.1>991231 then do;Sok.1="Never";tr "16Hz7c0"left(Sok.1,6)"z0";end;save=1;signal START
  57. CONFIG8:;addkeys (mills1);se "23Hz7c0i64 2}z0";gu 70;mills1=result
  58.   if mills1<5|mills1>40 then do;mills1=15;tr "23Hz7c0"left(mills1,2)"z0";end;save=1;signal START
  59. CONFIG9:;addkeys (mills2);se "23Hz7c0i64 2}z0";gu 70;mills2=result
  60.   if mills2<5|mills2>40 then do;mills2=15;tr "23Hz7c0"left(mills2,2)"z0";end;save=1;signal START
  61. CONFIG10:;addkeys (mills3);se "23Hz7c0i64 2}z0";gu 70;mills3=result
  62.   if mills3<5|mills3>100 then do;mills3=10;tr "23Hz7c0"left(mills3,2)"z0";end;save=1;signal START
  63. CONFIG11:;addkeys (hasc);se "23Hz7c0i0 1}z0";gu 70;d=result
  64.   if d="" | index("'.-!,`",d)>0 then do;d=hasc;tr "23Hz7c0"d"z0";end;hasc=d;save=1;signal START
  65. CONFIG12:;addkeys (hans);se "23Hz7c0i0 1}z0";gu 70;d=result
  66.   if d="" | index("'.-!,`",d)>0 then do;d=hans;tr "23Hz7c0"d"z0";end;hans=d;save=1;signal START
  67. CONFIG13:;addkeys (hibm);se "23Hz7c0i0 1}z0";gu 70;d=result
  68.   if d="" | index("'.-!,`",d)>0 then do;d=hibm;tr "23Hz7c0"d"z0";end;hibm=d;save=1;signal START
  69. CONFIG14:;addkeys (Sid.2);se "23Hz7c0i64 3}z0";gu 70;Sid.2=result;if Sid.2<1 then do;Sid.2="";Sok.2="";tr "23Hz7c0   :      z0";end;if Sid.2="" then do;save=1;signal START;end
  70.   addkeys (Sok.2);se "27Hz7c0i16 6}z0";gu 70;Sok.2=result;if Sok.2<960525|Sok.2>991231 then do;Sok.2="Never";tr "27Hz7c0"left(Sok.2,6)"z0";end;save=1;signal START
  71. CONFIG15:;addkeys (Sid.3);se "34Hz7c0i64 3}z0";gu 70;Sid.3=result;if Sid.3<1 then do;Sid.3="";Sok.3="";tr "34Hz7c0   :      z0";end;if Sid.3="" then do;save=1;signal START;end
  72.   addkeys (Sok.3);se "38Hz7c0i16 6}z0";gu 70;Sok.3=result;if Sok.3<960525|Sok.3>991231 then do;Sok.3="Never";tr "38Hz7c0"left(Sok.3,6)"z0";end;save=1;signal START
  73. CONFIG16:;a=VannaA+1;if a>3 then a=0;VannaA=a
  74.   tr "47Hz7c0"left(word("No  Yes 14yr 16yr",VannaA+1),4)"z0";save=1;signal START
  75. CONFIG17:;chance=chance+1;if chance>5 then chance=0
  76.   tr "47Hz7c0"left(word("No Yes 2-Hr 4-Hr 6-Hr 8-Hr",chance+1),4)"z0";save=1;signal START
  77. CONFIG18:;zero=zero+1 ; if zero>2 then zero=0
  78.   tr "47Hz7c0"left(word("No Yes Spin",zero+1),4)"z0";save=1;signal START
  79. CONFIG19:;turn1=turn1+1;if turn1>3 then turn1=0
  80.   tr "47Hz7c0"left(turn1.turn1,8)"z0";save=1;signal START
  81. CONFIG20:;maint=maint+1;if maint>4 then maint=1
  82.   tr "47Hz7c0"left(ma.maint,8)"z0";save=1;signal START
  83. CONFIG21:;free=free+1;if free>3 then free=0
  84.   tr "47Hz7c0"left(free.free,8)"z0";save=1;signal START
  85.  
  86. CONFIG22:;cashL=cashL+1;if cashL>3 then cashL=0
  87.   tr "47Hz7c0"left(word("No Yes YesIF YesX",cashL+1),5)"z0";save=1;signal START
  88.  
  89. CONFIG23:;addkeys (Sid.4);se "45Hz7c0i64 3}z0";gu 70;Sid.4=result;if Sid.4<1 then do;Sid.4="";Sok.4="";tr "45Hz7c0   :      z0";end;if Sid.4="" then do;save=1;signal START;end
  90.   addkeys (Sok.4);se "49Hz7c0i16 6}z0";gu 70;Sok.4=result;if Sok.4<960525|Sok.4>991231 then do;Sok.4="Never";tr "49Hz7c0"left(Sok.4,6)"z0";end;save=1;signal START
  91. CONFIG24:;addkeys (Sid.5);se "56Hz7c0i64 3}z0";gu 70;Sid.5=result;if Sid.5<1 then do;Sid.5="";Sok.5="";tr "56Hz7c0   :      z0";end;if Sid.5="" then do;save=1;signal START;end
  92.   addkeys (Sok.5);se "60Hz7c0i16 6}z0";gu 70;Sok.5=result;if Sok.5<960525|Sok.5>991231 then do;Sok.5="Never";tr "60Hz7c0"left(Sok.5,6)"z0";end;save=1;signal START
  93. CONFIG25:;if newplay=1 then newplay=0;else newplay=1
  94.   tr "73Hz7c0"left(word("No Yes",newplay+1),3)"z0";save=1;signal START
  95. CONFIG26:;addkeys (spin);se "73Hz7c0i64 3}z0";gu 70;d=result
  96.   if d="" then do;d=spin;tr "73Hz7c0"d"z0";end;spin=d;save=1;signal START
  97. CONFIG27:;if yvow=1 then yvow=0;else yvow=1
  98.   tr "73Hz7c0"left(word("No Yes",yvow+1),3)"z0";save=1;signal START
  99. CONFIG28:;if Play=1 then Play=0;else Play=1
  100.   tr "73Hz7c0"left(word("No Yes",Play+1),3)"z0";save=1;signal START
  101.  
  102. CONFIG29:;a=badGM+1;if a>2 then a=0;badGM=a
  103.   tr "73Hz7c0"left(word("Exit Menu Ask",badGM+1),4)"z0";save=1;signal START
  104.  
  105. CONFIG30:;CONFIG31:;signal SCREEN2
  106. CONFIG32:;addkeys (Sid.6);se "67Hz7c0i64 3}z0";gu 70;Sid.6=result;if Sid.6<1 then do;Sid.6="";Sok.6="";tr "67Hz7c0   :      z0";end;if Sid.6="" then do;save=1;signal START;end
  107.   addkeys (Sok.6);se "71Hz7c0i16 6}z0";gu 70;Sok.6=result;if Sok.6<960525|Sok.6>991231 then do;Sok.6="Never";tr "71Hz7c0"left(Sok.6,6)"z0";end;save=1;signal START
  108.  
  109. DROPKEY:;parse arg key;a=index(upper(key),upper(hosts));if a~=0 then key=left(key,a-1)||"[H]"||substr(key,a+length(hosts))
  110.   a=index(upper(key),upper(hostM));if a~=0 then key=left(key,a-1)||"[M]"||substr(key,a+length(hostM))
  111.   a=index(upper(key),upper(hostF));if a~=0 then key=left(key,a-1)||"[F]"||substr(key,a+length(hostF));return key
  112. MAKEKEY:;parse arg key;a=index(upper(key),"[H]");if a~=0 then key=left(key,a-1)||hosts||substr(key,a+3)
  113.   a=index(upper(key),"[M]");if a~=0 then key=left(key,a-1)||hostM||substr(key,a+3)
  114.   a=index(upper(key),"[F]");if a~=0 then key=left(key,a-1)||hostF||substr(key,a+3);return key
  115.  
  116. LOADER:;a="LOADER"||it;signal (a)
  117. LOADER1:;load=load+1;if load>7 then load=1;tr "5Hz7c0"left(lo.load,13)"z0";save=1;signal START
  118. LOADER2:;addkeys (wofC);se "5Hz7c0i1 7}z0";gu 70;wofC=result;save=1;signal START
  119. LOADER3:;if last=1 then last=0;else last=1;tr "5Hz7c0"left(word("Simple Complex",last+1),7)"z0";save=1;signal START
  120. LOADER4:;addkeys (Lpor);se "5Hz7c0i64 2}z0";gu 70;d=result;if d="" | d<0 then do;d=Lpor;tr "5Hz7c0"d"z0";end;Lpor=d;save=1;signal START
  121. LOADER5:;addkeys (Hpor);se "5Hz7c0i64 2}z0";gu 70;d=result;if d="" | d>99 then do;d=Hpor;tr "5Hz7c0"d"z0";end;Hpor=d;save=1;signal START
  122. LOADER6:;a=showB+1;if a>4 then a=1;showB=a;tr "25Hz7c0"left(word("Never If_Time If_Wrong Always",showB),8)"z0";save=1;signal START
  123. LOADER7:;addkeys (minB);se "25Hz7c0i64 2}z0";gu 70;minB=result;if minB<10 | minB>40 then do;minB=15;tr "25Hz7c0"right(minB,2)"z0";end;save=1;signal START
  124. LOADER8:;addkeys (timer);se "25Hz7c0i64 2}z0";gu 70;d=result;if d="" then do;d=timer;tr "25Hz7c0"d"z0";end;timer=d;save=1;signal START
  125. LOADER9:;a=0;if smart=0 then a=1;if smart=1 then a=2;smart=a;tr "25Hz7c0"left(word("No Yes Ask",a+1),3)"z0";save=1;signal START
  126. LOADER10:;addkeys (max1);se "25Hz7c0i64 2}z0";gu 70;max1=result;if max1<5 | max1>40 then do;max1=15;tr "25Hz7c0"left(max1,2)"z0";end;save=1;signal START
  127. LOADER11:;addkeys (max2);se "25Hz7c0i64 2}z0";gu 70;max2=result;if max2<5 | max2>40 then do;max2=15;tr "25Hz7c0"left(max2,2)"z0";end;save=1;signal START
  128. LOADER12:;addkeys (max3);se "25Hz7c0i64 2}z0";gu 70;max3=result;if max3<5 | max3>40 then do;max3=15;tr "25Hz7c0"left(max3,2)"z0";end;save=1;signal START
  129. LOADER13:;signal SCREEN1
  130. LOADER14:;addkeys (hosts);se "8Hz7c0i0 28}";gu 70;d=result;if d="" then do;d=hosts;tr "8Hz7c0"d"z0";end;hosts=d;save=1;signal START
  131. LOADER15:;addkeys (hostM);se "8Hz7c0i0 13}";gu 70;d=result;if d="" then do;d=hostM;tr "8Hz7c0"d"z0";end;hostM=d;hosts=hostM" & "hostF;tr "8Hz7c0"left(hosts,28)"z0";save=1;signal START
  132. LOADER16:;addkeys (hostF);se "8Hz7c0i0 13}";gu 70;d=result;if d="" then do;d=hostF;tr "8Hz7c0"d"z0";end;hostF=d;hosts=hostM" & "hostF;tr "8Hz7c0"left(hosts,28)"z0";save=1;signal START
  133. LOADER17:;resetM=resetM+1;if resetM>5 then resetM=0;tr "8Hz7c0"left(word("Never Monthly RegMils BonMils AnyMils Banker",resetM+1),7)"z0"
  134.   if resetM=0|resetM=5 then resetV="N/A";if resetM=1 then resetV=3;if resetM=2|resetM=3 then resetV=10;if resetM=4 then resetV=20;tr "1Hz7c0"left(resetV,3)"z0";save=1;signal START
  135. LOADER18:;if defL=1 then defL=0;else defL=1;tr "8Hz7c0"left(word("No Yes",defL+1),3)"z0";save=1;signal START
  136. LOADER19:;a=puPR1+1;if a>4 then a=0;puPR1=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR1+1),5)"z0";puVA1=word("0 15 1000 10000 5",puPR1+1);tr "48Hz7c0"left(puVA1,5)"z0";save=1;signal START
  137. LOADER20:;a=puPR2+1;if a>4 then a=0;puPR2=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR2+1),5)"z0";puVA2=word("0 15 1000 10000 5",puPR2+1);tr "48Hz7c0"left(puVA2,5)"z0";save=1;signal START
  138. LOADER21:;a=puPR3+1;if a>4 then a=0;puPR3=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR3+1),5)"z0";puVA3=word("0 15 1000 10000 5",puPR3+1);tr "48Hz7c0"left(puVA3,5)"z0";save=1;signal START
  139. LOADER22:;a=bpPR1+1;if a>4 then a=0;bpPR1=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR1+1),5)"z0";bpVA1=word("0 15 1000 10000 5",bpPR1+1);tr "48Hz7c0"left(bpVA1,5)"z0";save=1;signal START
  140. LOADER23:;a=bpPR2+1;if a>4 then a=0;bpPR2=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR2+1),5)"z0";bpVA2=word("0 15 1000 10000 5",bpPR2+1);tr "48Hz7c0"left(bpVA2,5)"z0";save=1;signal START
  141. LOADER24:;a=bpPR3+1;if a>4 then a=0;bpPR3=a;tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR3+1),5)"z0";bpVA3=word("0 15 1000 10000 5",bpPR3+1);tr "48Hz7c0"left(bpVA3,5)"z0";save=1;signal START
  142. LOADER25:;signal SCREEN1
  143. LOADER26:;signal LOADER14
  144. LOADER27:;signal LOADER15
  145. LOADER28:;signal LOADER16
  146. LOADER29:;signal LOADER17
  147. LOADER30:;signal LOADER18
  148. LOADER31:;addkeys (puVA1);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=puVA1;tr "48Hz7c0"d"z0";end;puVA1=d;save=1;signal START
  149. LOADER32:;addkeys (puVA2);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=puVA2;tr "48Hz7c0"d"z0";end;puVA2=d;save=1;signal START
  150. LOADER33:;addkeys (puVA3);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=puVA3;tr "48Hz7c0"d"z0";end;puVA3=d;save=1;signal START
  151. LOADER34:;addkeys (bpVA1);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=bpVA1;tr "48Hz7c0"d"z0";end;bpVA1=d;save=1;signal START
  152. LOADER35:;addkeys (bpVA2);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=bpVA2;tr "48Hz7c0"d"z0";end;bpVA2=d;save=1;signal START
  153. LOADER36:;addkeys (bpVA3);se "48Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=bpVA3;tr "48Hz7c0"d"z0";end;bpVA3=d;save=1;signal START
  154. LOADER37:;signal SCREEN1
  155. LOADER38:;if resetM=0|resetM=5 then signal START;addkeys (resetV);se "1Hz7c0i64 3}";gu 70;d=result
  156.   if d="" then do;d=resetV;tr "1Hz7c0"left(d,3)"z0";end;resetV=d;save=1;signal START
  157. LOADER39:;if cwof=1 then cwof=0;else cwof=1;tr "1Hz7c0"left(word("No Yes",cwof+1),3)"z0";save=1;signal START
  158. LOADER40:;a=suPR1+1;if a>6 then a=0;suPR1=a;tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR1+1),5)"z0"
  159.   s=word("15 1000 10000 5 N/A N/A N/A",suPR1+1);tr "71Hz7c0"left(s,5)"z0";if s="N/A" then s=0;suVA1=s;save=1;signal START
  160. LOADER41:;a=suPR2+1;if a>6 then a=0;suPR2=a;tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR2+1),5)"z0"
  161.   s=word("15 1000 10000 5 N/A N/A N/A",suPR2+1);tr "71Hz7c0"left(s,5)"z0";if s="N/A" then s=0;suVA2=s;save=1;signal START
  162. LOADER42:;a=suPR3+1;if a>6 then a=0;suPR3=a;tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR3+1),5)"z0"
  163.   s=word("15 1000 10000 5 N/A N/A N/A",suPR3+1);tr "71Hz7c0"left(s,5)"z0";if s="N/A" then s=0;suVA3=s;save=1;signal START
  164. LOADER43:;addkeys (smartB);se "71Hz7c0i64 5}z0";gu 70;d=result;if d="" then do;d=smartB;tr "71Hz7c0"d"z0";end;smartB=d;save=1;signal START
  165. LOADER44:;a=0;if olmM=0 then a=1;if olmM=1 then a=2;olmM=a;tr "71Hz7c0"left(word("No Yes Ask",a+1),3)"z0";save=1;signal START
  166. LOADER45:;if Banked=1 then Banked=0;else Banked=1;tr "71Hz7c0"left(word("No Yes",Banked+1),3)"z0";save=1;signal START
  167. LOADER46:;signal SCREEN1
  168. LOADER47:;signal LOADER38
  169. LOADER48:;signal LOADER39
  170. LOADER49:;if suPR1>3 then signal START;addkeys (suVA1);se "71Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=suVA1;tr "71Hz7c0"d"z0";end;suVA1=d;save=1;signal START
  171. LOADER50:;if suPR2>3 then signal START;addkeys (suVA2);se "71Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=suVA2;tr "71Hz7c0"d"z0";end;suVA2=d;save=1;signal START
  172. LOADER51:;if suPR3>3 then signal START;addkeys (suVA3);se "71Hz7c0i64 5}";gu 70;d=result;if d="" then do;d=suVA3;tr "71Hz7c0"d"z0";end;suVA3=d;save=1;signal START
  173. LOADER52:;signal LOADER43
  174. LOADER53:;signal LOADER44
  175. LOADER54:;signal LOADER45
  176. LOADER55:;signal SCREEN1
  177.  
  178. SAVE:
  179.   if save then do
  180.     se "1HCcbSave c6these casettings c6before exiting? "
  181.     se "c7[caYesc7]c6: ca";gc;a=result;if a="N" then do
  182.     tr "No.";signal MORE;end;else tr "Yes!";call SAVECONFIG;end
  183.   else signal MORE
  184. COUNT:;parse arg text;a=0;do z1=1 to length(text);b=index(text,"")
  185.   if b>0 then do;a=a+1;text=delstr(text,b,1);end;end z1;return
  186.  
  187. READCONFIG:;call open(f1,path"!Settings","r");conf1=readln(f1)
  188.   conf2=readln(f1);Ldata=readln(f1);parse var conf1 j ver vdate
  189.   parse var Ldata cwof"|"load"|"Lpor"|"Hpor"|"defL"|"wofC"|"j
  190.   SData=readln(f1);do i=1 to 6;parse var SData Sid.i"|"Sok.i"|"SData;end i
  191.   HostD=readln(f1);parse var HostD hosts"|"hostM"|"hostF"|"j
  192.   kasc1=readln(f1);kasc2=readln(f1);kans1=readln(f1);kans2=readln(f1)
  193.   kibm1=readln(f1);kibm2=readln(f1);Gdata=readln(f1);Bdata=readln(f1)
  194.   parse var Gdata resetM"|"resetV"|"badGM"|"Play"|"Last"|"hasc"|"hans"|",
  195.                   hibm"|"zero"|"max1"|"VannaA"|"maint"|"max3"|"mills1"|",
  196.                   mills2"|"mills3"|"chance"|"newplay"|"spin"|"Banked"|",
  197.                   olmM"|"yvow"|"suPR1"|"suVA1"|"suPR2"|"suVA2"|"suPR3"|",
  198.                   suVA3"|"turn1"|"free"|"cashL"|"j
  199.   parse var Bdata timer"|"max2"|"minB"|"smart"|"showB"|"smartB"|"puPR1"|",
  200.                   puVA1"|"puPR2"|"puVA2"|"puPR3"|"puVA3"|"bpPR1"|"bpVA1"|",
  201.                   bpPR2"|"bpVA2"|"bpPR3"|"bpVA3"|"j
  202.   parse var kasc1 kasc1m"|"kasc1p"|"j;parse var kasc2 kasc2m"|"kasc2p"|"j
  203.   parse var kans1 kans1m"|"kans1p"|"j;parse var kans2 kans2m"|"kans2p"|"j
  204.   parse var kibm1 kibm1m"|"kibm1p"|"j;parse var kibm2 kibm2m"|"kibm2p"|"j
  205.   call close(f1);changewhere "WOF Main Config"
  206.  return
  207.  
  208. SAVECONFIG:;Ldata=cwof"|"load"|"Lpor"|"Hpor"|"defL"|"wofC"|x"
  209.   a="";do i=1 to 6;a=a||Sid.i"|"Sok.i"|";end i;SData=a"x"
  210.   HostD=hosts"|"hostM"|"hostF"|x";kasc1=kasc1m"|"kasc1p"|x";kasc2=kasc2m"|"kasc2p"|x"
  211.   kans1=kans1m"|"kans1p"|x";kans2=kans2m"|"kans2p"|x";kibm1=kibm1m"|"kibm1p"|x";kibm2=kibm2m"|"kibm2p"|x"
  212.   Gdata=resetM"|"resetV"|"badGM"|"Play"|"Last"|"hasc"|"hans"|"hibm"|"zero
  213.   Gdata=Gdata"|"max1"|"VannaA"|"maint"|"max3"|"mills1"|"mills2"|"mills3
  214.   Gdata=Gdata"|"chance"|"newplay"|"spin"|"Banked"|"olmM"|"yvow"|"suPR1
  215.   Gdata=Gdata"|"suVA1"|"suPR2"|"suVA2"|"suPR3"|"suVA3"|"turn1"|"free"|"cashL"|x"
  216.   Bdata=timer"|"max2"|"minB"|"smart"|"showB"|"smartB"|"puPR1"|"puVA1
  217.   Bdata=Bdata"|"puPR2"|"puVA2"|"puPR3"|"puVA3"|"bpPR1"|"bpVA1"|"bpPR2
  218.   Bdata=Bdata"|"bpVA2"|"bpPR3"|"bpVA3"|x"
  219.   call open(f1,path"!Settings","w")
  220.     call writeln(f1,conf1);call writeln(f1,conf2);call writeln(f1,Ldata)
  221.     call writeln(f1,SData);call writeln(f1,HostD);call writeln(f1,kasc1)
  222.     call writeln(f1,kasc2);call writeln(f1,kans1);call writeln(f1,kans2)
  223.     call writeln(f1,kibm1);call writeln(f1,kibm2);call writeln(f1,Gdata)
  224.     call writeln(f1,Bdata)
  225.   call close(f1)
  226.  return
  227.  
  228. SETUP:;gu 1100454;oldmore=result;call NOMORE;it=1;ed=1;tr "f1";spa=copies(" ",76)
  229.   path=df;tfile=path"Texts/";rfile=path"Registered/";save=0
  230.   pr=" Arrow Keys Select Item to Edit, ENTER/RETURN Edits Item, ESC Saves & Quits!"
  231.   zz.1=" 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 "
  232.  
  233.   zz.1.1="07-14-15-23-24-32-07-08-16-25-08-09-17-26-09-10-18-27-10-19-28-19-11-20-29-11-12-21-30-12-13-22-31-13"
  234.   zz.1.2="31-22-13-31-30-21-12-30-29-20-11-29-28-19-28-27-18-10-27-26-17-09-26-25-16-08-25-32-24-23-15-14-07-32"
  235.  
  236.   it.1.1="HASC Key1"
  237.   it.1.2="HASC Key2"
  238.   it.1.3="HANS Key1"
  239.   it.1.4="HANS Key2"
  240.   it.1.5="3HIBM Key1"
  241.   it.1.6="3HIBM Key2"
  242.   it.1.7="4HSuspend15H1"
  243.   it.1.8="3H# of Regular Mills"
  244.   it.1.9="3H# of Bonus   Mills"
  245.   it.1.10="3HMills to be Banker"
  246.   it.1.11="3HASC Hide Character"
  247.   it.1.12="3HANS Hide Character"
  248.   it.1.13="3HIBM Hide Character"
  249.   it.1.14="4HSuspend26H2"
  250.   it.1.15="4HSuspend37H3"
  251.   it.1.16="28HUse Vanna Picture"
  252.   it.1.17="28HPlay Again Chance"
  253.   it.1.18="28HCan $0-$100 GUESS"
  254.   it.1.19="27HDisable @ 1st Turn"
  255.   it.1.20="27HMaint Access Users"
  256.   it.1.21="29HFree Spins Usage"
  257.  
  258.   it.1.22="27HCash Money Letters"
  259.  
  260.   it.1.23="4HSuspend48H4"
  261.   it.1.24="4HSuspend59H5"
  262.   it.1.25="53HLet NEW/GUEST Play"
  263.   it.1.26="53HSpin Graphic Delay"
  264.   it.1.27="55HUse Y as a Vowel"
  265.   it.1.28="58HWinner as 1st"
  266.  
  267.   it.1.29="58HTo BBS on Bad"
  268.  
  269.   it.1.30="58Hceu1Vu0c6IEW EVEN MORE WOF58H  CONFIG OPTIONS  "
  270.   it.1.31=it.1.30
  271.   it.1.32="4HSuspend70H6"
  272.  
  273.   zz.2=" 1 2 4 5 7 8 9 10 11 12 14 16 17 18 19 20 21 22 23 24 26 28 29 30 31 32 33 34 35 36 38 39 40 41 42 43 44 45 47 48 49 50 51 52 53 54 "
  274.   zz.2.1="01-14-01-26-01-02-16-02-28-02-04-17-38-04-29-47-04-05-18-39-05-30-48-05-07-19-31-40-49-07-08-20-32-41-50-08-09-21-33-42-51-09-10-22-34-43-10-52-10-11-23-35-44-11-53-11-12-24-36-45-12-54-12"
  275.   zz.2.2="54-36-24-12-54-45-36-53-35-23-11-53-44-35-52-34-22-10-52-43-34-51-42-33-21-09-51-50-41-32-20-08-50-49-40-31-19-07-49-48-30-05-48-39-18-05-39-47-29-04-47-38-17-04-38-28-02-28-16-02-16-26-01-26-14-01-14"
  276.   it.2.1="HDisplay Loader Info";it.2.2="HThe WOF Quick Command";it.2.3="HLast Player Checking"
  277.   it.2.4="HLowest Port Loaded";it.2.5="HHighest Port Loaded";it.2.6="5HShow Bonus Puzzle?"
  278.   it.2.7="3HMinimum Bonus Length";it.2.8="6HBonus Round Timer";it.2.9="4HSmart Bonus Letters"
  279.   it.2.10="3HSize of Last Puzzles";it.2.11="3HSize of Last Bonuses";it.2.12="3HSize of Bankers List"
  280.   it.2.13="24Hceu1Vu0c6IEW PREVIOUS WOF CONFIG OPTIONS";it.2.14="1HHosts";it.2.15="2HMale"
  281.   it.2.16="0HFemale";it.2.17="6HReset Mode";it.2.18="3HAsk Def. Game"
  282.   it.2.19="32H1st";it.2.20="32H2nd";it.2.21="32H3rd";it.2.22="32H1st"
  283.   it.2.23="32H2nd";it.2.24="32H3rd";it.2.25=it.2.13;it.2.26=it.2.14
  284.   it.2.27=it.2.15;it.2.28=it.2.16;it.2.29=it.2.17;it.2.30=it.2.18;it.2.31="44HOf"
  285.   it.2.32="44HOf";it.2.33="44HOf";it.2.34="44HOf";it.2.35="44HOf"
  286.   it.2.36="44HOf";it.2.37=it.2.13;it.2.38="8HReset Value";it.2.39="0HClose WOF"
  287.   it.2.40="55H1st";it.2.41="55H2nd";it.2.42="55H3rd";it.2.43="58HSmart Bonus"
  288.   it.2.44="59HSend OLM's";it.2.45="57HUse Banked $";it.2.46=it.2.13
  289.   it.2.47=it.2.38;it.2.48=it.2.39;it.2.49="67HOf";it.2.50="67HOf"
  290.   it.2.51="67HOf";it.2.52=it.2.43;it.2.53=it.2.44;it.2.54=it.2.45;it.2.55=it.2.13
  291.   lo.1="Last Only";lo.2="Current Only";lo.3="Bonus Only";lo.4="Last/Current"
  292.   lo.5="Last/Bonus";lo.6="Current/Bonus";lo.7="USE ALL THREE";ma.1="ID # 1"
  293.   ma.2="Group23";ma.3="Group31";ma.4="MaintAcc";turn1.0="Nothing";turn1.1="LoseTurn"
  294.   turn1.2="Bankrupt";turn1.3="Both!"
  295.   free.0="Direct"
  296.   free.1="SameGame"
  297.   free.2="Future 5"
  298.   free.3="Infinite"
  299.  return
  300.  
  301. NOMORE:;setobject 0;putuser 1100454;return
  302. MORE:;setobject oldmore;putuser 1100454;exit
  303.  
  304. SCREEN1:;tr "f0@4c9ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
  305.   tr "³r1cb The Wheel of Fortune, "left(ver,5)" Config Options Editor by Dotoran of Frontiers! r0c9³";tr "³"spa"³"
  306.   tr "³ c6ASC Key1c9:z7                                                              z0 z7  z0 ³"
  307.   tr "³ c6ASC Key2c9:z7                                                              z0 z7  z0 ³";tr "³"spa"³"
  308.   tr "³ c6ANS Key1c9:z7                                                              z0 z7  z0 ³"
  309.   tr "³ c6ANS Key2c9:z7                                                              z0 z7  z0 ³";tr "³"spa"³"
  310.   tr "³ c6IBM Key1c9:z7                                                              z0 z7  z0 ³"
  311.   tr "³ c6IBM Key2c9:z7                                                              z0 z7  z0 ³";tr "³"spa"³"
  312.   tr "³  c6Suspendc9:z7c0   :      z0 z7   :      z0 z7   :      z0 z7   :      z0 z7   :      z0 z7   :      z0 c9³"
  313.   tr "³          ÀÄÄc61c9ÄÄÄÄÄÙ ÀÄÄc62c9ÄÄÄÄÄÙ ÀÄÄc63c9ÄÄÄÄÄÙ ÀÄÄc64c9ÄÄÄÄÄÙ ÀÄÄc65c9ÄÄÄÄÄÙ ÀÄÄc66c9ÄÄÄÄÄÙ ³"
  314.   tr "³ c6# of Regular Millsc9:z7    z0c6  Use Vanna Picturec9:z7      z0c6 Let NEW/GUEST Playc9:z7     z0 ³"
  315.   tr "³ c6# of Bonus   Millsc9:z7    z0c6  Play Again Chancec9:z7      z0c6 Spin Graphic Delayc9:z7     z0 ³"
  316.   tr "³ c6Mills to be Bankerc9:z7    z0c6  Can $0-$100 GUESSc9:z7      z0c6   Use Y as a Vowelc9:z7     z0 ³"
  317.   tr "³"left(spa,25)"c6Disable @ 1st Turnc9:z7          z0  c6Winner as 1stc9:z7     z0 ³"
  318.   tr "³ c6ASC Hide Characterc9:z7   z0c6  Maint Access Usersc9:z7          z0c6  To BBS on Badc9:z7     z0 ³"
  319.   tr "³ c6ANS Hide Characterc9:z7   z0c6    Free Spins Usagec9:z7          z0  ceu1Vu0c6IEW EVEN MORE WOF  c9³"
  320.   tr "³ c6IBM Hide Characterc9:z7   z0c6  Cash Money Lettersc9:z7       z0       c6CONFIG OPTIONS    c9³"
  321.   tr "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
  322.   tr pr;max=32;it=1;ed=1
  323.   se "2Hz7c0";send left(kasc1p,62)
  324.   tr "z0";tr "5Hz7c0"right(kasc1m,2)"z0"
  325.   se "2Hz7c0";send left(kasc2p,62)
  326.   tr "z0";tr "5Hz7c0"right(kasc2m,2)"z0"
  327.   se "2Hz7c0";send left(kans1p,62)
  328.   tr "z0";tr "5Hz7c0"right(kans1m,2)"z0"
  329.   se "2Hz7c0";send left(kans2p,62)
  330.   tr "z0";tr "5Hz7c0"right(kans2m,2)"z0"
  331.   se "12Hz7c0";send left(kibm1p,62)
  332.   tr "z0";tr "75Hz7c0"right(kibm1m,2)"z0"
  333.   se "12Hz7c0";send left(kibm2p,62)
  334.   tr "z0";tr "75Hz7c0"right(kibm2m,2)"z0"
  335.   do i=1 to 6;tr ""1+i*11"Hz7c0"left(Sid.i,3)":"Sok.i"z0";end i
  336.   tr "23Hz7c0"left(mills1,2)"z0";tr "47Hz7c0"left(word("No Yes 14yr 16yr",VannaA+1),4)"z0";tr "73Hz7c0"left(word("No Yes",newplay+1),3)"z0"
  337.   tr "23Hz7c0"left(mills2,2)"z0";tr "47Hz7c0"left(word("No Yes 2-Hr 4-Hr 6-Hr 8-Hr",chance+1),4)"z0";tr "73Hz7c0"left(spin,3)"z0"
  338.   tr "23Hz7c0"left(mills3,2)"z0";tr "47Hz7c0"left(word("No Yes Spin",zero+1),4)"z0";tr "73Hz7c0"left(word("No Yes",yvow+1),3)"z0"
  339.   tr "47Hz7c0"left(turn1.turn1,8)"z0"
  340.   tr "73Hz7c0"left(word("No Yes",play+1),3)"z0"
  341.  
  342.   tr "23Hz7c0"hasc"z0"
  343.   tr "47Hz7c0"left(ma.maint,8)"z0"
  344.   tr "73Hz7c0"left(word("Exit Menu Ask",badGM+1),4)"z0"
  345.   tr "23Hz7c0"hans"z0"
  346.   tr "47Hz7c0"left(free.free,8)"z0"
  347.   tr "23Hz7c0"hibm"z0"
  348.   tr "47Hz7c0"left(word("No Yes YesIF YesX",cashL+1),5)"z0"
  349.  signal START
  350.  
  351. SCREEN2:;tr "f0@4c9ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
  352.   tr "³r1cb The Wheel of Fortune, "left(ver,5)" Config Options Editor by Dotoran of Frontiers! r0c9³";tr "³"spa"³"
  353.   tr "³  c6Display Loader Infoc9:z7c0               z0c6  Hostsc9:z7c0                              z0c9 ³"
  354.   tr "³"left(spa,40)"c6Malec9:z7c0              z0c9"left(spa,17)"³"
  355.   tr "³c6The WOF Quick Commandc9:z7c0         z0c6       Femalec9:z7c0              z0c9"left(spa,17)"³"
  356.   tr "³ c6Last Player Checkingc9:z7c0         z0c9"left(spa,45)"³"
  357.   tr "³   c6Lowest Port Loadedc9:z7c0    z0c6        Reset Modec9:z7c0         z0c6  Reset Valuec9:z7c0     z0c9   ³"
  358.   tr "³  c6Highest Port Loadedc9:z7c0    z0c6     Ask Def. Gamec9:z7c0     z0c6        Close WOFc9:z7c0     z0c9   ³";tr "³"spa"³"
  359.   tr "³   c6Show Bonus Puzzle?c9:z7c0          z0  r1ca Regular   Amount r0     r1 Surprise  Amount r0c9 ³"
  360.   tr "³ c6Minimum Bonus Lengthc9:z7c0    z0c6    1stc9:z7c0       z0c6 Ofc9:z7c0       z0c6 1stc9:z7c0       z0c6 Ofc9:z7c0       z0c9 ³"
  361.   tr "³    c6Bonus Round Timerc9:z7c0    z0c6    2ndc9:z7c0       z0c6 Ofc9:z7c0       z0c6 2ndc9:z7c0       z0c6 Ofc9:z7c0       z0c9 ³"
  362.   tr "³  c6Smart Bonus Lettersc9:z7c0     z0c6   3rdc9:z7c0       z0c6 Ofc9:z7c0       z0c6 3rdc9:z7c0       z0c6 Ofc9:z7c0       z0c9 ³"
  363.   tr "³"spa"³";tr "³"left(spa,34)"r1ca Bonus     Amount r0c9"left(spa,24)"³"
  364.   tr "³ c6Size of Last Puzzlesc9:z7c0    z0    c61stc9:z7c0       z0c6 Ofc9:z7c0       z0c6    Smart Bonusc9:z7c0       z0c9 ³"
  365.   tr "³ c6Size of Last Bonusesc9:z7c0    z0    c62ndc9:z7c0       z0c6 Ofc9:z7c0       z0c6     Send OLM'sc9:z7c0     z0c9   ³"
  366.   tr "³ c6Size of Bankers Listc9:z7c0    z0    c63rdc9:z7c0       z0c6 Ofc9:z7c0       z0c6   Use Banked $c9:z7c0     z0c9   ³";tr "³"spa"³"
  367.   tr "³"left(spa,22)"ceu1Vu0c6IEW PREVIOUS WOF CONFIG OPTIONS"left(spa,22)"c9³"
  368.   tr "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ";se pr;max=55;it=1;ed=2
  369.   tr "5Hz7c0"left(lo.load,13)"z0";tr "8Hz7c0"left(hosts,28)"z0";tr "8Hz7c0"left(hostM,13)"z0"
  370.   tr "5Hz7c0"left(wofC,7)"z0";tr "8Hz7c0"left(hostF,13)"z0";tr "5Hz7c0"left(word("Simple Complex",last+1),7)"z0"
  371.   tr "5Hz7c0"left(Lpor,2)"z0";tr "8Hz7c0"left(word("Never Monthly RegMils BonMils AnyMils Banker",resetM+1),7)"z0"
  372.   tr "1Hz7c0"left(resetV,3)"z0";tr "5Hz7c0"left(Hpor,2)"z0"
  373.   tr "8Hz7c0"left(word("No Yes",defL+1),3)"z0";tr "1Hz7c0"left(word("No Yes",cwof+1),3)"z0"
  374.   tr "25Hz7c0"left(word("Never If_Time If_Wrong Always",showB),8)"z0"
  375.   tr "25Hz7c0"left(minB,2)"z0";tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR1+1),5)"z0"
  376.   tr "48Hz7c0"left(puVA1,5)"z0";tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR1+1),5)"z0"
  377.   s=suVA1;if suPR1>3 then s="N/A";tr "71Hz7c0"left(s,5)"z0";tr "25Hz7c0"left(timer,2)"z0"
  378.   tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR2+1),5)"z0"
  379.   tr "48Hz7c0"left(puVA2,5)"z0";tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR2+1),5)"z0";s=suVA2;if suPR2>3 then s="N/A"
  380.   tr "71Hz7c0"left(s,5)"z0";tr "25Hz7c0"left(word("No Yes Ask",smart+1),3)"z0"
  381.   tr "37Hz7c0"left(word("None Time GameP ByteC FileC",puPR3+1),5)"z0"
  382.   tr "48Hz7c0"left(puVA3,5)"z0";tr "60Hz7c0"left(word("Time GameP ByteC FileC Money FreeV FreeS",suPR3+1),5)"z0";s=suVA3;if suPR3>3 then s="N/A"
  383.   tr "71Hz7c0"left(s,5)"z0";tr "25Hz7c0"left(max1,2)"z0"
  384.   tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR1+1),5)"z0"
  385.   tr "48Hz7c0"left(bpVA1,6)"z0";tr "71Hz7c0"left(smartB,6)"z0"
  386.   tr "25Hz7c0"left(max2,2)"z0";tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR2+1),5)"z0"
  387.   tr "48Hz7c0"left(bpVA2,6)"z0";tr "71Hz7c0"left(word("No Yes Ask",olmM+1),3)"z0"
  388.   tr "25Hz7c0"left(max3,2)"z0";tr "37Hz7c0"left(word("None Time GameP ByteC FileC",bpPR3+1),5)"z0"
  389.   tr "48Hz7c0"left(bpVA3,6)"z0";tr "71Hz7c0"left(word("No Yes",Banked+1),3)"z0"
  390.  signal START
  391.  
  392. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  393.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  394.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  395.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  396.   bufferflush
  397. /**************************************************************************\
  398. \****************************************** Frontiers BBS (716)/823-9892 **/
  399.